home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 July: Mac OS SDK / Dev.CD Jul 96 SDK / Dev.CD Jul 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / untested / tcpip / misc / stock.sx
Encoding:
Text File  |  1996-05-21  |  572 b   |  26 lines  |  [TEXT/ttxt]
  1. --<<<
  2.  
  3. in module WebBrowser
  4.  
  5. function getStockInfo #key stock: ("NSCP")  -> (
  6.     local p := posturl webaccessmanager "http://qs.secapl.com/cgi-bin/qs" ("tick950812=" + stock)
  7.     local s := readall p[2]
  8.     plug p[2]
  9.     local start := findrange s "<pre>"
  10.     local e := findrange s "</pre>"
  11.     s := copyfromto s (start + 5) (e - 1)
  12.     
  13.     extractinfo s
  14. )
  15.  
  16. function extractInfo s -> (
  17.     local x := "Last Traded at: "
  18.     local start := findrange s x
  19.     s := copyFromTo s (start - 1 + size x) (size s)
  20.     local space := " "[1]
  21.     local e := getordone s space
  22.     (copyFromTo s 0 (e - 1)) as Float
  23. )
  24.  
  25. -->>>
  26.